home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
UNIVERSE
/
SHARED.DIR
/
01047_Script_sbtt
< prev
next >
Wrap
Text File
|
1995-11-21
|
2KB
|
65 lines
-- standard button trios
--property myNormal, myRollover, myPressed, myChannel, myScript, ancestor
--on birth me, no, sp, ro, pr, sc
-- set ancestor to birth(script "sb",sp,sc)
-- set myNormal to (the number of cast no)
-- set myRollover to (the number of cast ro)
-- set myPressed to (the number of cast pr)
-- set myScript to sc
-- set myChannel to integer(sp)
-- return me
--end
--change appearance
on sbttrollo myChannel, dummy
global gsbttnormal
--if the castNum of sprite myChannel = myRollOver then exit
set gsbttnormal = the castNum of sprite myChannel
set rollNum = integer(the name of cast gsbttNormal)
--put ">>>my rollover cast 1003 " & myChannel && myRollover
puppetSprite myChannel,TRUE
set the castNum of sprite myChannel to rollNum
updateStage
--puppetSprite myChannel, false
end
on sbttpress theLine
global gsbttNormal
set myChannel = integer(item 1 of theLine)
set myPressed = integer(the name of cast gsbttNormal) + 1
puppetSprite myChannel,TRUE
set the castNum of sprite myChannel to myPressed
updateStage
puppetSprite myChannel, false
end
on sbttnorm theLine
global gsbttnormal
--put theLine
set myChannel = integer(item 4 of theLine)
set the castNum of sprite myChannel = gsbttnormal
puppetSprite myChannel, false
updateStage
--go to the frame
--put ">>>sbtnorm " & myChannel
--put the puppet of sprite myChannel
--put the castNum of sprite myChannel
-- puppetSprite myChannel,TRUE
-- set the castNum of sprite myChannel to myNormal
-- updateStage
-- puppetSprite myChannel, false
end
on sbttdoScript theLine
set command = item 7 of theLine
do command
end